VAR x, y, squ;

PROCEDURE square;
BEGIN
   squ:= (x+3)/12 - y*y
END;

BEGIN
   x := 1;
   WHILE x <= 10 DO
   BEGIN
      CALL square;
      ! squ;
      x := x + 1
   END
END.


